home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / TerminalTools.mod < prev    next >
Encoding:
Text File  |  1995-08-07  |  2.5 KB  |  110 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        TerminalTools.mod
  3.  
  4.      Contains:    Communications Toolbox Terminal tools Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$TAGS-*)
  21. (*$CALLING PASCAL*)
  22. MODULE TerminalTools;
  23.  
  24. IMPORT SYSTEM, Types, Dialogs, Terminals;
  25.  
  26. (* $PUSH*)
  27. (* $ALIGN MAC68K*)
  28. (* $LibExport+*)
  29.  
  30. CONST
  31.     tdefType*                    = LONG("tdef");
  32.     tvalType*                    = LONG("tval");
  33.     tsetType*                    = LONG("tset");
  34.     tlocType*                    = LONG("tloc");
  35.     tscrType*                    = LONG("tscr");
  36.     tbndType*                    = LONG("tbnd");
  37.     tverType*                    = LONG("vers");
  38. (* messages *)
  39.     tmInitMsg*                    = 0;
  40.     tmDisposeMsg*                = 1;
  41.     tmSuspendMsg*                = 2;
  42.     tmResumeMsg*                    = 3;
  43.     tmMenuMsg*                    = 4;
  44.     tmEventMsg*                    = 5;
  45.     tmActivateMsg*                = 6;
  46.     tmDeactivateMsg*                = 7;
  47.     tmGetErrorStringMsg*            = 8;
  48.     tmIdleMsg*                    = 50;
  49.     tmResetMsg*                    = 51;
  50.     tmKeyMsg*                    = 100;
  51.     tmStreamMsg*                    = 101;
  52.     tmResizeMsg*                    = 102;
  53.     tmUpdateMsg*                    = 103;
  54.     tmClickMsg*                    = 104;
  55.     tmGetSelectionMsg*            = 105;
  56.     tmSetSelectionMsg*            = 106;
  57.     tmScrollMsg*                    = 107;
  58.     tmClearMsg*                    = 108;
  59.  
  60.     tmGetLineMsg*                = 109;
  61.     tmPaintMsg*                    = 110;
  62.     tmCursorMsg*                    = 111;
  63.     tmGetEnvironsMsg*            = 112;
  64.     tmDoTermKeyMsg*                = 113;
  65.     tmCountTermKeysMsg*            = 114;
  66.     tmGetIndTermKeyMsg*            = 115;
  67. (* messages for validate DefProc    *)
  68.     tmValidateMsg*                = 0;
  69.     tmDefaultMsg*                = 1;
  70. (* messages for Setup DefProc    *)
  71.     tmSpreflightMsg*                = 0;
  72.     tmSsetupMsg*                    = 1;
  73.     tmSitemMsg*                    = 2;
  74.     tmSfilterMsg*                = 3;
  75.     tmScleanupMsg*                = 4;
  76. (* messages for scripting defProc    *)
  77.     tmMgetMsg*                    = 0;
  78.     tmMsetMsg*                    = 1;
  79. (* messages for localization defProc  *)
  80.     tmL2English*                    = 0;
  81.     tmL2Intl*                    = 1;
  82.  
  83.     
  84. TYPE
  85.     TMSearchBlockPtr* = POINTER TO TMSearchBlock;
  86.  
  87.     TMSearchBlock* = RECORD
  88.         theString*:                Types.StringHandle;
  89.         where*:                    Types.Rect;
  90.         searchType*:                Terminals.TMSearchTypes;
  91.         callBack*:                Terminals.TerminalSearchCallBackUPP;
  92.         refnum*:                    INTEGER;
  93.         next*:                    TMSearchBlockPtr;
  94.     END;
  95.  
  96.     TMSetupPtr* = POINTER TO TMSetupStruct;
  97.  
  98.     TMSetupStruct* = RECORD
  99.         theDialog*:                Dialogs.DialogPtr;
  100.         count*:                    INTEGER;
  101.         theConfig*:                Types.Ptr;
  102.         procID*:                    INTEGER;                                (* procID of the tool *)
  103.     END;
  104.  
  105.  
  106. (* $ALIGN RESET*)
  107. (* $POP*)
  108.  
  109.  END TerminalTools.
  110.